PRERIEREIEIATERNATIONAL PET} CLUB 


Sommaire. 


DIVERS : Editorial , Bruno _DELANNAY pi 
Liste des adhérents p2 
Droit de réponse : origines du DAI, Marc VANDERMEERSCH P3 
Modems Standard HAYES à pé 
HARD : Interface DCE-IEEE + Real Time Clock, Hardy STROBEL p7 
Synthé Vocal à ? ? pli 
ASSEMBL. : Renum. , F. BACQUET pi7 
Trans-Mode ; ? ? p23 
BAS+ASS .: Scroil-Up & Down , Emmanuel DI MARCGC pi8 
BASIC : Musique Lu Delce Di Vumane  , .e " p34 
Réencrez vos rubans , Ciaudius MCRIN p57 
X-Basic , Joël MENIER p38 


PETITES ANNONCES 


VENDS 


LIEVAIN JŒAN-MRRIE, Parc des arceaux Bt. B3, Rue Paul Rimbaud, 
3419668 MONTPELLIER tel. 67.54.76.74. 


OAI marchant bien, clavier moyen : 16606 FF 
Ken-Dos double drive 2x886 K : 4506 FF 
D.C.A. : 666 FF 
Imprimante TANDY DMP 185 : 1266 FF 


Tous ces éléments marchant correctement, pouvant être vendus 
séparément ou le tout pour 6868 FF + frais d'envois. Fournis avec 
diskettes et K7 DCR. 


DANIEL MOULES, 8 Rue POPINCOURT, esc. C, 75811 PARIS. 
Vends cause problèmes financiers. 

DAI Cder nier modèle> + Pdi et cables : 1666 FF 
Carte “bus et drive Commodore VCIS41 : 1406 FF 
fourni avec # 38 disquettes) 

Docs et programmes gratuits pour tout achat. 


LEDITOSIAL 


Vous le saviez, ]l’ an passé, la plupart des utilisateurs de DAI 
se sont reconverti sur d’autres machines : AMIGA et ATARI. 

Hr. D’ARANTES à acheté un ATARI et a arrété le club DCA. 

Hoi même je me suis commis à acheter un #HIGA 2888 (superbe 
machine avec laquelle je tape cet éditorial !) sans powr cela 
abandonner le DAI ni le club ©? 


Bon ben voila, les comptes sont vite faits : nous tirions la 
revue à une centaine d'exemplaires en 87 et cette année nous ne sommes 
même pas vingt ! 


Vu le faible tirage cette année de la revue, je ne pouvais plus 
avoir les mêmes conditions de la part de l'éditeur. 

J'avais donc deux possibilités : soit faire comme annoncé l’an 
passé et mettre la revue sur support soft, à lire par DAlwordstar, 
soit faire l'édition moi même, à la main.... 

Vous constaterez (au vu de la qualité du présent tirage) que j’ai 
choisi la deuxième solution qui, bien que me donnant un peu plus de 
travail, me semble toutefois bien plus maniable. 


Pour ce qui est des autres : 

## Tous les softs cette année sont du node ’accés gratuit’ pour 
les survivants. Consultez les précédents DAlclics pour les modalités 
exactes (45FF pour ia K7 audio, la copie du mode d’emploi et le port). 
Demandez, si vous ne l'avez déjà, La liste de la logithèque, en 
envoyant une K7 audio ainsi qu’une enveloppe timbrée à votre adresse 
pour la réponse. 


#X* Tous les titres de la bibliothèque sont encore accessibles. 


#* Je n'ai hélas plus de contacts avec les Allemands ? Les 
personnes intéressées par leur système devront leur écrire directement 
gràäce aux adresses parues en B7. 


Avec seulement 28 personnes, il va falloir faire un gros effort 
pour écrire des articles si vous voulez que votre revue reste un tant 
soit peu intéressante... J'ai encore de quoi faire un petit numéro, 
mais après, plus rien tt! Que faire ?? 


Je publie ci-après Ja liste complète des survivants : 19 
personnes, 28 avec moi même (mais vous connaissez déjà mes 
coordonnées). Cette liste a été réalisée très facilement siu AMIGA 
avec un programme de ‘desktop publishing’ (édition et mise en pages) 
nommé PAGE SETIER, le présent texte est fait avec PRO-MRITE (plus 
souple à mon avis mais moins puissant) 


HiiGh : Pour ceux qui travaillent a a fois sur Di et AniGh 
(j'en connais au moins trois su les vingt survivants) je suis a 
disposition pour tout échanges... 


ANITIES a tous ... Bruno Delannay. 
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Pour ceux qui veulent savoir toute la vérité sur les débuts du 
DAI, les autres, passez déjà à la page suivante ! 


Dans un article de DALUOO7 paru dans le dernier DAlclic, j'ai lu 
avec HORREUR que le principal défaut du DAI serait d’être BELGE ! 


Pardonnez mon émoi, mais là, je me sens vraiment atteind dans ma 
petite âme de Belge.et j'estime qu’il vaut mieux resituer les 
choses... 


Tout d’abord, je puis prouver la bonne foi de mes informations et 
la sureté de mes sources : à la glorieuse époque des débuts du 
DAI, j'étais dans la classe du fils du concepteur de votre 
ordinateur favori, Mr Simpson, et c’est dailleurs par lui que 
J'ai eu l’occasion d'acheter un DAI à un prix imbattable ! 


Au début, cette personne travaillait sur le 8080 pour la firme 
Texas Instrument. Il a développé dans une étude tout un mini- 
système que vous connaissez sous le nom de UTILITY V3.3. 
Malheureusement pour cette personne, Texas n’a pas voulu de son 
système. Devant ce refus, notre homme s’est installé à son 
propre compte pour lancer et commercialiser le DAI. (DAI voulant 
dire à l’origine DATA APPLICATIONS INTERNATIONAL). Bien vite le 
DAI s'est révélé comme une machine superbe, dépassant de loin 
tous ses collègues Apple // et autres. Malheureusement, on peut 
très bien être un génie en informatique-électronique et NUL en 


matière commerciale... C'est malheureusement le cas de notre 
homme, ce qui a bien vite entrainé la première (et pas la 
dernière) faillite de la société. N'entrons pas dans les 


détails de la cause de cette faillite (si vous y tenez, écrivez à 
la rédaction et j'aurai alors le courage de vous taper la suite 
de l'histoire!). 


Le DAI était connu en Belgique en tant qu'’ordinateur Belge, en 
Allemagne en tant que machine de qualité, et surtout en Hollande 
en tant que machine sélectionnée à l’époque par la télé Hollan- 
daise (la N.O.S) comme idéale pour les cours de BASIC télévisés. 
(ce qui explique le succès du DAI en Hollande) Du côté Français: 
pas de boi pour notre homme, 1l tombe sur de véritables filous 
(et je pèse mes mots) qui ne pensent qu'a vendre sur une courte 
période un max. de machine pour un prix élevé sans aucun service 
après-vente valable. De plus, une machine Belge !! C’est mal vu. 


Tout ceci pour vous dire que le peu de succès relatif du DAI en 
France est dû non pas aux p'tits Belges, mais à l’incompétence 
globale et inqualifiable de l’importateur Français. Le seul 
reproche qui me semble juste étant le manque d'esprit commercial 
de la maison mère à Bruxelles qui aurait du changer d’importateur 
Français rapidemment ! 


Voilä, comme cela vous savez tout ou presque La suite des 
aventures historiques du DAI dans un prochain numéro si la 
demande s’en fait sentir ! 


Marc Vandermeersch, Ex-secrétaire du super club IDC Belgique ! 


Article paru dans la revue EMC ATARI ST NEWS. 
Hayes, qui es-tu ? 


Et bien oui : suite à plusieurs questions qui m'ont été posées à 
ce sujet par des utilisateurs de modems ‘simples’ et par de 
futurs acheteurs de modems, je vous propose ici une petite 
explication de ce que l’on entend par ‘modem full HAYES compati- 
ble’. 


Qu'est-ce-que le standard HAYES, à quoi sert-il ? 


Le standard modem HAYES est en fait une série de commandes qui 
vous permettent de piloter automatiquement votre modem. Nous 
sommes donc loin des modems dits ‘’acoustiques’ ou vous devez 
former le numéro de téléphone du serveur que vous désirez 
contacter, et ensuite poser (écraser même!) le cornet de votre 
téléphone sur le modem pour établir une communication ’vaille que 


vaille’. Non, ne critiquons pas trop les modems acoustiques qui 
savent quand même très bien faire leur boulot, mais regardons les 
choses en face : un modem ‘Hayes’ (enfin, compatible Hayes car 


les originaux coutent cher..ce qui nous rappelle le cas de 
certains PC...) est beaucoup plus puissant et pratique à utiliser 
pour pas beaucoup plus cher.… 


Un bon modem Hayes est donc capable de répondre aux commandes 
Hayes mais au fait, qu'est ce qu’une commande Hayes ? 


Une commande Hayes est tout simplement une suite de caractères 
envoyés au modem et que ce dernier reconnaît comme étant une 
commande. Pour ce faire, cette commande est toujours précédée du 
préfixe "AT" qui ‘prévient’ votre modem que ce qui va suivre doit 
étre interprété comme une commande. Il y a bien évidemment toute 
une série de commandes possibles..mais avant de nous étendre la- 
dessus, Jetons un coup d'oeil sur un petit exemple : supposons 
que Je veuille appeller le serveur EMC de Bruxelles qui, comme 
tout le monde le sais (non?) répond (sauf plantage!) au 


02/513.11.11. C'est bien simple, Je vais utiliser la commande 
Hayes "D" (D comme Dial en anglais, c’est-à-dire former le 
numéro). Je peux aussi préciser le type de centrale téléphonique 
sur laquelle mon modem est connecté : -soit une centrale 


électronique (de plus en plus étendu en Belgique), J'utilise 
alors la commande "T" (T comme Tone, tonalité en français) et mon 
modem formera le numéro voulu avec des tonalités (vous savez, les 
petits BIP-BIP-BIP que font nos téléphones) - soit une centrale 
mécanique , J'utilise alors la commande #"P" (P comme Pulse, 
pulsations) et mon modem formera le numéro voulu avec des 
puisations (les TAKAKAKATAK bien connus des anciens téléphones). 


En bref, pour former donc mon numéro à supposer que Je sois 
relié à une centrale électronique, je devrai envoyer à mon modem 
la commande suivante : "ATDTO85131111" (AT comme préfixe, D pour 
Dial, T pour Tone et le numéro voulu) et mon modem appellera donc 
tout seul le serveur sans que Je n’aie plus rien à faire. Si 
votre modem est assez perfectionné, il sera en outre capable de 
vous "répondre" toute une série de messages. par exemple 

NO DIALTONE : pas de tonalité, cela veut dire que soit votre 
ligne est en dérangement, soit elle est déjà occupée 

NO ANSWER : au bout d’un certains temps (définissable)}, personne 
ne déccroche de l’autre côté. 

BUSY : le serveur que vous appellez est déjà occupé par un autre. 
VOICE : ce n'est pas un modem qui à répondu de l’autre côté 
mais bien une personne. 

CONNECT (ou CONNECT 1200 selon la vitesse) : que le modem appellé 
a bien fait sa tache : 1l a déccroche et vous a détecté. 


Ce petit exemple vous monrant donc un peu de la ‘philosophie’ des 
commandes Hayes. 


Evidemment, les commandes Hayes ne se limitent pas à cela, il y 
en à toute une série d’autres, dont je vais vous citer les 
principales en vitesse. Vous pourrez cependant déjà constater à 
ce point qu'avec un bon programme de communication bien fait (qui 
donne donc tout seul la commande Hayes au modem), vous n’avez 
vraiment plus rien à faire pour vous connecter sur un serveur, ou 
tout simplement pour former le numéro d’un ami (le modem forme 
le numéro et vous rend la ‘voix’ juste après...) 


Les principales commandes Hayes sont les suivantes 


Commande Description 

AT Préfixe obligatoire à chaque commande. 

A/ Re-exécute la commande précédente (pratique par 
exemple dans le cas ou le serveur était occupé) 

A Answer. Réponds à un appel, dans le cas ou vous 
Jouez le rôle de serveur et que l’on vous appelle. 

B Switch entre les protocoles Bell et CCITT. 
(protocole de com. des USA et d’Europe.) 

D Dial, forme le numéro. Avec plusieurs options comme 


attendre le signal d’une ligne extérieure pour un 
bureau, attente d’indicatif international, 
type de centrale (Tone-Puise)) 


E Echo ON ou OFF à l’écran. 

F Full ou Half duplex, les habitués connaissent 
(les autres se poseront des questions car je ne 
peux pas tout expliquer ici !) 

H On ou Off HooK : prend ou rend la ligne. (même 
résultat que lorsque vous déccrochez ou raccrochez 
votre téléphone.) 


I Identification : chaque modem a évidemment un nom 
et une marque qui apparaît lorsqu'on la lui 
demande... 

L Level : Choix du volume du petit haut-parleur qui 


se trouve dans votre modem et qui vous donne 
confirmation de ce qui se passe sur votre ligne) 

M Haut parleur On ou Off 

S Changer les registres du modems (comme par exemple 
répondre après X sonneries, attendre X secondes 
entre chaque chiffre,….) 

Z Reset : initialise le modem avec ses valeurs par 
défaut. 


Il y a bien évidemment encore plusieurs autres commandes Hayes, 
mais dont les néophytes ne verralent pas Jl’intéret 1c1.… En 
fait, il faudrait un numéro complet de la revue si pas plus pour 
vous expliquer toutes les possibilités du système. 


En clair, j'espère que vous retiendrez cependant que le Jeu de 
commande Hayes correspond au standard par exellence en ce qui 
concerne le pilotage des modems dits ‘intelligents’. Si vous 
prenez n'importe quel programme de communication un peu poussé, 
vous pouvez étre sur qu’il gèrera le standard Hayes, Hayes 
étant le seul standard ayant réussi à vraiment s'imposer sur le 
marché. ( et tant mieux car pour une fois, le standard en la 
matière est complet !X{ceci sans intention belliqueuse face à une 
certains marque d'ordinateurs bien connue...) 


Quoiqu’il en soit, Hayes ou pas, je vous donne rendez-vous 
24h/24, 7 jours/7 sur notre serveur de Bruxelles : EMC-Bxl A 
02/513.1111 (avec un numéro aussi facile à retenir, le standard 
Hayes s'impose moins, mais nous ne sommes heureusement pas les 
seuls à ‘’tourner’!) 


Marc Vandermeersch, Secrétaire EMC Association. 
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Mit diesem Interface ist es dem DAI môglich über den DCE mit IEEE 
488 gesteuerten Geräten in Verbindung zu treten. 


Das Interface besteht hauptsächlich aus einem GPIB-Interface Con- 
troller, der alle anfallenden Timing und Datenübertragungsprozesse 


vornimmt. 
Der GPIB kann als Talker, Listener und Controller arbeiten. 


Beschreibunq der BRauteile: 


74HC94 — Clockgenerator, Inverter (1 Gatter frei) 
74HC158 - Kartenadr. @-7 (Einstellung bekannt) 
SN7S516@ + } RBusterminierungsbausteine für das 

SN75161 > IEEE 488 Format 

xPD721@ — Intelligenter IEEE 488 Interface-Controller 


(Der :PD kostet zwischen 34,- und 46,- DM und ist in jedem 
guten Elektronikgeschäft erhältlich), z.B. 

Frank Electronic GmbH 

Postfach: 840073 

8509 Nürnberg 84 


Steuerun es Interfaces: 


Das Interface kann mit den BASIC Befehlen OUT, INP und WAIT ge- 
steuert und programmiert werden, z.R.: 


Kartenadr. @-7 
Register @-7, d.h. WR Register 
Daten zum GFIB 
Kartenadr. 9-7 
Register 6-7, d.h. RD Register 


OUT (#nm),x 


INP (#nm) 


32%x39 
uuuuu 


Es gibt also & RD Register und 8 WR Register. Welche Môüglichkeiten 
der :PD bietet, steht in den Datenblättern (s.u). 


Interrupt: Den Interrupt kônnen Sie wählen, bereits bekannt 

Clock: Das IC kann bis zu 8 MHz vertragen, für den DAI geniügt 
aber 2 MHz Quarz, sie kônnen aber auch ein Vielfaches von 
2 MHZ einsetzen. 


Tun Sie Ihrem DAI etwas Gutes, nehmen Sie 74HCxxx ICs. Das Netzteil 
im DAI freut sich über den geringen Stromverbrauch1 


a Die Datenblätter sind bei der Redaktion unter der Adresse: 

Uwe Wienkop / Laerfeldstr. 54 / 48354 Rochum 1 

erhältlich. Es wurden uns von Herrn Strobel freundlicherweise die 
Unterlagen zu den folgenden Chips zur Verfügung gestellt: 


MM 58174 Microprocessor Compatible Teal Rime Clock 
DAC1968-1408 14 Rit, «P Compatible, 
Double-Buffered D to À Convertors 
ADC®868 8 Bit :P Compatible A/D Converters with 8 Channel 
Analog Multiplexer 
ADCO861-a84 8 Bit :P Compatible A/D Converters 
INS8G448-Series Microcomputer/Microprocessor Family 


Diese Unterlagen (+; S@ Seiten) kônnen gegen 7 DM (incl. Porto) bei 
der obenstehenden Adresse bezogen werden. 


HW 4.1 
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Diese Real-Time Uhr wird am DCE Bus angeschlossen und bietet 


Uhrfunktionen, wie: Zehntelsekunden, Sekunden, Minuten, Stunden, 
Tage, Wochentage, Monate, Jahr und einen Interrupt. 


Kurzbeschreibung der Bauteile: 


74LS158 —- Kartenadresse 
74S245 — Buffer, nur 4 Ein-/ Ausgänge benutzt 
MMS8174 — Uhrbaustein 


Transistor - Interruptinverter 
Die Real-Time Uhr kann, wie üblich, durch OUT, INP und WAIT ge- 
steuert werden: 


Programmieren mit: 
OUT (#nm),x n >= Kartenadresse @-7 


m à Registeradresse Q-F 
X = Daten 9-F (nur die niederen 4 Bits 
sind gültig) 
Lesen mit INP (#nm): n = Kartenadresse 6-7 


m à Registeradresse 4-F 
(Auch hier sind nur die niederen 4 Bits gültig) 


Interruptsteckbrücke: A) INT 7 
B) Ext. INT 


Bei Benutzung des Akkus bleibt der 184 N, falls eine Lithiumbatterie 
verwendet wird, entfällt der Widerstand.. 


Zugriffsmôüglichkeiten: 


Register : : HEX ï Zugriffsmode: 
PAR PER ES sh Se a ais PR SE RS 
Test : a : Write only 
Sekunden 1/19  : 1 ; Read only 
ler  : æ ; Read only 
1er : 3 : Read only 
Minuten ler : e : Read or Write 
1er : L-) : Read or Write 
Stunden ler : 6 ; Read or Write 
1%er ' 7 : Read or Write 
Tage ler : 8 : Read or Write 
1er ï 9 ' Read or Write 
Wochentag : A : Read or Write 
Monat ler ; B ; Read or Write 
iñer : C ; Read or Write 
Jahre ; D : Write only 
Stop/Start : E ; Write only 
Interrup ; F ; Read or Write 


Genaue Einstellungen + Verwendung => siehe Datenblatt; beim Club 
erhältlich (siehe hierzu die RBemerkungen beim IEEE Interface) 
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Faire parler le DAI: 
Re nt 


C'est possible, et en français, grâce au circuit 
MEA 8000. On trouvera les détails techniques concernant ce 
circuit intègré dans la notice fournie par RTC [1]. La 
société TMPI [2] réalise et vend un montage complet avec le 
logiciel adapté, entre autres, à l’IBM PC. Ce montage a 
été décrit dans Micro-6ystèmes [3]. 

Le but de cet article est de décrire une version de ce 
logiciel adaptée au DAI, ainsi que la manière de connecter 
le montage de la société TMPI au DAI. 


Fonctionnement du synthétiseur: 


Le MEA 8000 synthétise des phonèmes (exemples: "ba”","i" 
"“kre", etc.). Ces phonèmes sont décrits par paquets de 4 
octess dont la structure est la suivante: 


CHESDHONITONSME MOT OLOTIN 


-Octet 1: bande passante des quatre filtres ou formants, codée 
sur 2 bits chacune. 


-Octets 2 et 3: fréquence centrale des 3 premiers formants, le 
quatrième étant à fréquence fixe. 


-Octets 3 et 4: amplitude. 


-Octet 4: durée élémentaire et vitesse de variation de la hauteur 
de la voix (inténation). 


Pour dire un mot, il suffit donc de le décrire phonèti- 
-quement, le programme assurant la traduction automatique en pa- 


-quets$ de 4 octets qi seront placés en mémoire, puis transmis 
vers le MEA 8000. 


Transmission des données: 
ne 


LA 
PPI 8255 


AE 


La méthode choisie est simple: le bus de données du MEA 8000 
est connecté au port B du PPI 8255, le signal de demande de 
donnée REÊQ issu du MEA 8000 est relié au bit 0 du port C et les 
deux commandes A0 et W sont reliés aux bits 0 et 1 du port A. 
Le PPI 8255 est donc placé dans le mode Ports A&B en sortie, 
Port C en entrée. Si est à 1, le MEA 8000 n'accepte pas de 
donnée, si HW0O ,il accepte d’être écrit. 


Si A0 est à l, le MEA 8000 considère que 
le mot qu'il va recevoir est une commande, sinon il considère 
que c'est une donnée. 
Les commandes sont peu nombreuses; elles définissent l’ini- 
-tialisation et l'arrêt du MEA 8000. 


Programme: 

11 se décompose ainsi: 
1° Chargement du lexique (paquets de 4 octets et leur adresses). 
2° Présentation des symboles phonétiques et entrée du msssage. 
3° Analyse du message et réalisation du code qui sera transmis. 
4° Transmission du code vers le MEA 8000. 
5° Aiguillage: répèter? nouveau mot? fin? 


On notera l'usage particulier de certains &aractères: 
S="ch", %="ien", etc.. On remarquera qu’il est possible de 
jouer sur certains paramêtres comme l’intonation (< voix montante, 
= voix égale, > voix descendante ), la durée du phonème (+, ++, 
+... augmente sa longueur, -, --, ... Le diminue ,proportionnel- 
-lement au nombre de + ou de -. 

Ces deux fonctions sont placées en subroutine; on peut encore 
faire varier le débit du MEA 8000 en plaçant [ ou ], 1 ou 
2 fois en tête du message. Un espace où ; réalise un temps mort 
entre deux mots et . ou * termine le message. &8i * est utilisé, 
la voix est chuchotée. 


Données: : 


Les données sont placées en 3 groupes: le premier est la 
table d'équivalence entre chaque caractère et le n° de l’ad- 
-resse Qùil se trouve (0 à 39); le second est constitué par 
les adresses elles-même; le troisième est constitué par les 
paquets de 4 octets débutant par :#00,#Noctets,#36,43€. 


Dans un premier temps, les données (adresses et paquets 
d octets) sont lus et places dans la RAM 4 partir de #30U0, 
Lorsque le message est analysé, le code constitué est placé à 
partir de #3600. On vérifira que cette zone de la mémoire n'est 
est déjà pas utilisée par une autre routine. 

Afin d'assurer une transnission rapide des données, une 
subroutine en language machine a été écrite et placée en #35A0 
à la suite des données phonètiques. 


Subroutine LM: 


*D5 Push D 

*ES5 : Push H 

#Fr5 Push PS 

H2A,HPE,#35 LHLD #35$E, adresse finale du code 
*EB XChg » la place dans DE 


#21,400,#36 LXI H,#3600, adresse de départ du code 
W3A,#02,NFE LA #FEO2 , test du bit 0, port C (REQ) 
*E6,H01 A61 @01 

HCÇ2,:#AA,#35 JNZ #35AA , saut pour nouveau test si C0=1 
#3E,4#00 MVI ÀA,#00 

#32,400,NFE SEA #FE00 , validation de K (écriture) 

#*7E Mov À,MM 

#32,H01,N#FE SEA #FEO1 , transmission d’un octet, port B 
#3E,#02 MVI ÀA,#02 

#32,400,#FE &SétA #FE00 , fin d'écriture 


#23 InX H , adresse de l’octet suivant 

#“7C | Mov À,H 

#BA | Cmp D , test sur le mot haut de l'adresse 
#C2,4AA,43 JNZ #35AÀ,, finale 

#*7D | Mov À,L 

*BB Cmp E , test sur le mot bas de l'adresse 
#C2,HAA,#35 JNZ #35AAÀ ; finale 

“D1 ‘ Pop D 

*E1 Pop H 

*F1 Pop PSH 

*c9 Ret 


Références: 


[1] "Synthétiseur vocal MEA 8000" RTC 130 Av. Ledru- 
Rollin 75540 Paris Cedex 11. 


[2] Techni-Musique et Parole Informatique (FMPI) 
Centre commercial Rue Fontaine du Bac 
63000 Clermont-Ferrand. 


[3] Micro-Systèmes n° 99, Juillet-Août 1986. 
“Une voix nouvelle pour votre PC" par H. Benoît. 
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FRINT CHR$(12):POKE #FEQ3:#£93REM FORT AZB=OUT,C=IN 


FRINT "Chargement des pronemes en Hexa." 
FÜR JX=1 TO 4Z:READ E$-MA:NEXT J%X 


FOR JX=#3000 TO #3SCE:READ AX:POKE J%,A%:NEXT J% 


RESTORE 

PRINT :PRINT "Composez votre message a l’aide 
des symboles phonetiques si- dessous." 

FRINT 3PRINT "a":"b"."R (rat)","! ail)" 
FRINT "e';"d":"r (or)","7 (eil)" 

FRINT "£< (o ouvert)"."q (gare)";"s";."# (euil)" 
FRINT "us, "j"s "tt", "x Cien)" 

FRINT “w (ou)";"k","v","/ Coin)" 

FRINT "A (an)":"1","2","% (e ferme)" 

FRINT "E (eu)";"m","#$ (ch)":"2: (e ouvert)" 
PRINT “I (in)";"n";"N (gn)"-:"o (o ferme)" 
PRINT "W (oi)":"p";:"{T et ] (vitesse globale)" 
FKRINT "+ ou - (duree)".", ou * (silences)" 


FRINT ", ou *# (ponctuation finale)":"< = > (Cintonation)" 


FRINT :INPUT L$:PRINT :LX=LEN(LS$) 


FRINT :FRINT “Veuillez patienter s’il vous plait." 


V$=LEFTS (LS:1):WS$=MIDS (LS: 11) 
CX=4:CQ%X=0:FOR 1%=0 TO LX-1:A$=MIDS (LS: 1%:1) 
IF A$=" " THEN A$=":" 

COX=CX: GOTO 38Q 

7aû 

700 

IF A$="+" THEN 720 

IF A$="-" THEN 250 

REAL B$:M%X 

IF E$:>A$ THEN Z5Q 

AX=Rh3000+2#MX 
E%=256*(#30+FEEH (A%) ) +FEEK (A%+1) 
LX=#35F9+CX:KX=FEEK (BX+1) 

FOR J%=4 TO K%X 

FOFE D%X+.J%;PEEK (R%+.J%) 

NEXT J% 

CA=CA+KX-4 

RESTORE 

NEXT 1% 

REM HAUTEUR [DE LA VOIX 

FÛkLE #3400;4ûà 

REM LERIT LE LA VOIX 
NA=(92-ASC (VS) )#3Z 

IF (NX-32)#(N%+32)<;:Q SUTO 45Q 

RX=£: IF V$=W$ THEN R%=4 

FÜR JX=#36Q4 Ti H3SFC+LYX STEF R%X 

FOFE J%:FEEK (J%) +N% 

NEXT .J% 
IF A$: #" GÜTO S3Q 

REM M VOIX CHUCHOTEE 

FÜR JX=#3:@Q4 T[0 #3SFC+C7, STEF 4 

FOKE J%: (FEEK(J%) IANL 2:4)+14 

NEXT JX 

REM INITIALISATION Du MEA 

FOKE #FEQQ:4:FÛKE #FEQQ:4:FOKE #FEQIL:#1E 
FOKE #FE00:4:FÛKE #FEQQ.Z 

REM TRANSMISSION LES DONNEES 
Cr=CL+H#35SFC:R4=CX/254 

AX=CX-B4X+256 

FOKE #35SFE:AX:POKE #3SFF;,EB% 

CALLM #35A0 

REM ARRET [Dil MEA 

FOKE #FEQQ;4:FOKE #FEOQ-4:FOKE #FEO1,:#1E 
POKE #FEQQ,6:POKE #FEG0,2 

INPUT "REPETER"; X$:PRINT :1F X$="OUI" THEN 59@ 


INPUT "MOT NOUVEAU": XS$8:PRINT :1F X$="QOUI" THEN 40 


END 
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450 
660 
470 
£sQ 
490 
70ù 
71@ 
7:@ 
730 
74a 
75@ 
76@ 
77@ 
750 
7%@ 
zQa 
21@ 
220@ 
53@ 
240 
350 
&eQ 
37@ 
&2Q 
37 
70 
910 
za 
730 
aa 
950 
s6@ 
97@ 
ET 
770 
1aaa 
121@ 
180:0 
123 
104 
1a5@ 
104@ 
172 
10:a 
19%7a 
11QQ 
111@ 
11:Q 
113@ 
114 
115Q 
114@ 
1170 
112Q 
117Q 
12Qa 
1210 
1z2Q 
1:30 
124@ 
1250 
126@ 


LATA 
DATA 
DATA 
DATA 
DATA 
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a:Q-e:1: i:Z2s0»3pu:4:::%:%:6:E;:7;m: 5: A: 7 
1:1@:0:11:W,1Z:b:13:4d:14:f:15:gr16: j17;k; 15: 1:19 
M: ZQ:n; 21;:p;22:R:23:r:24,S;:2S;t,26:Vr 275 2: 28» $r 29 
N:30:',:31.7,32,4:33.:%:34:/:35,c.34,(:37,),37:3:38 
..39:*+, 37 


REM INTONATION 
NA=1+15% (ASC (AS) -6@) 

FÜR J=#34QQ+C0% TO #34QQ+CX STEF € 
IF (PEEK(JX) IAND 1446070 78 


FÛKE 
NEXT 


JA: FEER (J%) +N% 
J% 


COx=CXx 


GOTO 


350 


REM ALLUNGEMENT Li° LIN FHÜNEME 
FÜR JX=1 TO 4 


FÛKE 
FOKE 
NEXT 


#34Q1+C%X-J%X. FEEK (#3SFL4+CX-1%) 
#3SFD+C4x-J%X.FEEK(#35SF9+0%—J%) 
J 


CZ=c4+4 


GOTO 


350 


REM RACCOURCISSEMENT LUN FHONEME 
FOR J4=1 TO 4 

FOFE 
NEXT 


GOT 
C'ATA 
L'ATA 
L'ATA 
L'ATA 
L'ATA 
DATA 
L'ATA 
DATA 
DATA 
L'ATA 
DATA 
L'ATA 
LATA 
CATA 
L'ATA 
LATA 
DATA 
L'ATA 
L'ATA 
L'ATA 
L'ATA 
L'ATA 
LATA 
L'ATA 
LATA 
DATA 
L'ATA 
DATA 
L'ATA 
DATA 
LATA 
LATA 
DATA 
L'ATA 
LATA 
DATA 


#3SF7+0%-.1%;: FEEK (#3SFD4+0%X-J%) 
J% 


L'x-4 


3£@ 
D:#54:0-#75: 0: #70: 0: COQ ME4; 1:87; 1:#2C: 1: #FS 
Z:#10,:1:#50,:1:h74:1:#9S: 1: HEC: 2, ne 2:45C,2,#7% 

Z:H#7L;: 2: #EH0.:2;,4#03:27;,#40C;:2:#F4.3,#13;3,4ZC;3,4#44 
3:4°£.:3,:#70.3,#70.:3:#A4.3.4H404,3.4D£.3,#F3,4.#20 
4:#70:4;:#EQ-4-#FQ-5.#20.5.#SC. 5: #20: 5, 490,5, EC 
#FF:#FF-#FF:0,0:#24, #30. #30. #56. #E3, #CD. HAQ. #S6, #E3. HOLD, HAQ 
#£4, #E2: #04. HAQ. #54, HEZ: #6. HAQ, #74, HEC, CE: HAQ: #74, HEZ- #CE, #A2 
#77:-#E1:HCD: AO. #77: 4#E1: HDI. HA. D. #14. #3C, H3C. #AF.: HE3. HES, IQ 
#AF : #B3. #25; #LQ. HAE: #E3,; #7E: #2: HAE: #B3, #7E; #20: HAE, #B3: #24: #20 
#AB:#E3, »#IO-H#FF.#B3.#£S, #2. #FF:#B3, #25, #ZQ; Q, #24, #30, #3 
#AF : # DA; #S D: #2. HAF : #LIA: HD: #ZQ. HAF : RDA, HSE; #ZQ; HAF ; HDIA: HSE: #ZQ 
#AF : #HDIA: #44: #20: HAF ; #DIA: #44. #20, HAF : #DA: #65; #20: HAF : HDA: HS, HEC 
D:#14, #3. #3C: #C7: MAL: #54. HAQ. #07: HAC: #54, HA: HC6: HAE: #55, #2Q 
C4. HAE: HES. HD. #6. HAE. HAS. HTQ. #4, HAE: #25, #2Q. #6: HAE: #54. #AQ 
#DI£. HAE. #4. HAQ. D. #24, HEC. #30. #E7. #E7: #SL: #2Q- #E7: HE7. #SD. HA 
HE7:HE7. #44, HAD. HE7. HE7.H£E. HAQ. HE7.H#B7: 4446: HAQ, HE7. #7. #46. HAT 
HET. HET, HSÛ, #IQ. REC. RH); ROLL: HU Vi: #24, #41, #51: #né: RG, RES, HZQ 
#A£: HEC RES, #20. HEC. NE, “a #=0.#E4,#EL,HBF: #20: 4B4, 4B£; #57: HT 
#Bé: #B£- #7 #20. #FA: #E7: HAS: #IQ: HFA: HE7: HAS: #ZQ, Q, #24. #30, H3C 

3 S,#A0:#EE; ee ct #EB, HE: #27, 420, HER, #ES: #57. #2Q 


7: #ZQ-HEE. MERE: #E7. IQ. H#FER, RES. HET: MAD: #FE. HRS: HET. HA 
d:#:4; #3, #3C: HS: #CA. #ELI. #2Q: #5 TZ. HCA. 4H. #20; #77: HCA: HED: HAQ 
#77: HCA: #ERD. #AD. #77. HA. ED. HAQ. #77: RDA: HEC, HA: HET: #CA: HELD, 8-C 
#23. #CA: HELD. #ZQ.Q.#:4. #30: 4: #B4: HELD: HAQ:H#£E£, #E4, HE. HA 
#66: RES: #EF: #ZQ: #££, #ES: #EF; #ZQ.#45. H#ES;, #07: #20, #6; HAS: #C7: #20 
#61:#EH5: #05: HAQ: #61. 4HEHS, #DIS. HA. 0. H#24,#3C. #3C, #85, #D1, HAS, 420 
#22; #01: HAS: HAQ: #53: #CF : HAE : HAQ: #C 3; HCE > HAE: HA: #C3; #01: #7E >: #AQ 
#LZ:#03:#96, #20: #72: #UIZ: #95: #20. 492, 4U2, #95; #20; >: #3C; #3C: #3C 
HSA: #54, #9C, HZQ. HA: #54, #7C: #2Q: #SA. #54, #9D, #ZO, #54, #S4, #7. #ZQ 
#SA: #£A: #B6 » HAQ: #5; RSA: #B6: HAQ: #27, HAD, #C&, HAD, #S7 - HADI, HCE - HAQ 
#47:#E1:HCE:#AQ:#47:#H1,4H#CE;#AQ. #77, 4#E2. RCE: #20: #97. #EZ- #CS- #2Q 
#97E:#E1.:h#C4,#70,#7E.#E1.#C4.#20.0.#74,#3C,#3C;, #Dé, #B3, HEC; #AD 
#D£é:#E3, #60; #20: #FA; #E4, #66, #20: #FA-#E4, #66; #20, #FA; #54, #66; #20 
#FA:H#E4.#£LE. #ZQ.#F£.#E4, #45, #ZQ.HEA,HE4, #64; HAQ: 0, #24, #30: #3 
#9B: #ALI: #4C: HAG; #9E: MAD; #60; HAQ: HDE: HAE: #6D: #ZQ,; RDB:#AE >; #60; #20 
#DE;#AE; #40, #20, #DB: HAE: #£D; #20, H#9B;, HAE: #6C; HAQ, #9B.: HAE; #6C ; #AQ 
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DATA Q:h1C-#3C, #3C: #5Q- #04. #12. #IQ. #EQ. #04: H1A: #AQ: #7Q, HEBZ: #13: #A0 
DATA #44.#EZ. #AQ: HAS - HE1.H#74. HAQ.H#EA:H#71.:4H#74: HD. Q. #10: H#3C, #3C 
DATA HD. RES. H1S, 4IQ. HO. HAS. #LE,: HAQ, #10: DIS, 4, HAQ. HAQ. #DIS. HD. HZQ 
DATA #4Q:.4#0Z.HIC, #AQ. HAQ. #07. HSE. HIQ.Q.4Z4.#H#3C. H3C. #14. #E7.#FLD.#AQ 
DATA #1: #H7.RFE.H#3Q.H1£.H#E7.HFE: HEQD:H14: #EA7.-RFE:#EQ: #14, #EH7.#FE.: #EQ 
DATA #1l£.#H7.#FE.#ED. #14. #E7,HFE.H3Q:H1£,HE7.#FD.H#EQ.0Q.H#14.H3C. #30 
DATA RFF.H#77.-#£LQ.-HIQ.HFF. #77. - HAQD:#FA;: #77. #£E£. HAQ. HAL. #77. #24. #AD 
LATA @:H#1Z:#H#3L.:H3L:N#1E. #EA: #70. #30: #1E:#BA;:#70.H#AQ.-HIE:HEA. #74. HAD 
DATA ns Es #74: HAQ.HIE.#HA. #7. #ED.@.M#14,4H#30. 430. 7. #97. #ES. #3Q 
DATA #D- : SF. #E0Q,7-#977.4SE. #RQ. #27. #74, #54, HDQ. Q: #1. #30. #3C 

DATA : : HZQO-H#74. HET, HS. HD: H#74.MHR4, HE, #20. #74, H#B£.#IE. #0 
L'ATA - #TS: #20. Q.4#74,430. #3. HAC.MHE4, HSC, HAQ, #4C. REA. HEC. HAQ 
L'ATA : - HS. #20. #4U.#E4, HS. HAQ: #40. #EH4, #0. HAQ: #4A: HRA: HSE: # CC 
LATA #4A.#EH4.#SD, HAQG.H#4A.H#E4, #5. HZQ.Q.H14.H3C,H3C, #ES. HE4, H#SS. HO 
L'ATA & ZQ:#4T.#ER4, HF, #2Q.H#4A.#E4, HSE. HZQ. Q-H1E. HS: #SC 
DATA - #CZ:#E7;: - H3Q-H#11-H#E6,#77.HEQ. #14. #H#EH3. HSE. #35Q 
L'ATA -d:4#14,#H#30. #30; #3A; #EG. #54, 4. #34. HR3. HELD. RAD 
L'ATA D:#77:#E1:HCD: #ZQ-Q:H14%.:H#3C; #FS.#EQ:#A4.#H#AQ 
DATA - HES, #3F : - HAQ: #54. #EQ, #3C #40, #©4; #EQ: #3A- #AQ 
LATA -#F3:4BD.: 430.7: 4#F3;:R#ED: #30; 7,4F3, #ED, HE@ 

LATA % 3: #F3, #SD. #EQ. 7, #F3. #ED. #30. 7. #F3. HE. #3Q 

DATA : LHC. #BL,#FL.H7Q. H3Q. HEL.HF4.: #94, H3Q.HEL.#F4.H#7£. HT 
LATA #7E.:#EH4. #£L: HAQ. Q:#ZQ.-H3C. H3L: H£A: HEZ.#E4, HAQ: HA: REZ: 

L'ATA #:2Q.#H#£4A.#EZ - HAD. #HLA. HET, HSE. HEQ. #£A. HZ. HE£. HEQ 
L'ATA ; 4: H5Q-Q:#14,4# #3SC-HIZ.#FS, #74. HIQ.H#1Z.HFS. #74. HA 
DATA H1Z-H#FS.#77.#30.#AA.#E4. #76: #AQ.Q.H#70,H3C,H3C, #27, HEA, HSE. H3Q 
DATA #Z7.#H#EA. HSE. #EQ. #27, #EHA. - HEQ- #27, MR, RSE- HEQ. #72. HEA: HSE. #EQ 
LATA : HEA- HSE. HEQ. #27. MHEA. HSE. H3Q: Q. #35, H3C, #3C. #98. #D7, #SD. RAR 


DATA 
DATA 
DATA 
DATA 
CATA 
LATA 
DATA 
DATA 
DATA 
L'ATA 
DATA 
DATA 
LATA 
DATA 
DATA 
LôTA 
L'ATA 
DATé 
Lite 
DATA 
L'ATA 
DATA 
L'ATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


#D77 #SL. #AQ. #95: #07: HS D: MAD: #99: #DG- HSS. HZ HSE: #D6: RSC: #ZO 
SE; H#ZQ.HSF.HDZ. HSE. HZQ.HAF: KDE: #54. HAQ, HAF : HLIZ. HSE. #AD 
: LHSA MAO M7F à MIE. SF. H#LQ.A7F. HD. HSF. RZQ. LE: #E7: #L£F. AO 
a:#40. #3, #57, #3. #DD, HAQG. #44, H#E4,H#E7,HAQ. #46. H#E4.#LDIF : HAQ 
#AE. HE, #CF: #AQ. HAE. #E4.#UF. HAQ. REA: #ERS: #17. #20: HEA: HAS. #D7- HU 
#FA-#ER£.H#EG. HA: HFA-#E4.#E£. HA: HEA. HE7. #7E: #ZQ, HHA: HE7. HYE. #2 
#EA. #DS. #70. #ZQ. HA. #DS. #70. #ZQ. #FA, RDS. #73. HZQ-HFA: HDI. #73. #2 
G:#AQ.H3C. HI. HER. #E7.#E4. #ZQ.H#EE.#E7.#E6, HZQ.MFB.#E7:MAF - #2 
HER. #E7.#AF. #0. HFE. #E7. HAF- HA. #FE, HE7- HAF: HAQ.#EBE. #E7.#7F. #AD 
HEE.#E7.H7F. HAQ.HEG. #EE. #7F. HZQ. HEA. HDS. HF: #ZQ.HEA. RDS. HSF . #20 
#BA- HD. #7E. #AQ. #RA. HD. #7E: RAD. HA. HDIS. #75. HAQ. RFA, HDI. #75. HA 
d.H#AD.H3C. HI. RCE. HR. HAE. #ZQ. HER. HE. HAE. H2Q. #77: #E4:H#A7. #20 
#7. #4: #A7- #20: #77.#E4. #A7: HAQ.HS7.HE4.HA7. HAQ. #47: HR. H7F. #TQ 
ZQ:#EE.#E7.#7E.HAQ.HEER:HE7.H#7E.: #AQ 
3 S 1478 1 #20: #£E. HD, #74, #ZQ. HEA. HET: HELD. #2 
QQ- #40. #30. #30 2. #e D. #Z@.#7F.- 402. H#4E.#A0.#7F: #DZ: 
BF. O7: #27: #LO. RFE MOT: RE ZF- #ZQ. #es: #O7.#7F.#A0. 447.404. REF: #40 
7.404. 8EF. #£0. #47. #DS. #EF. #DD. 47, #0. #BF.RIQ. #2) HOT. EE, RC 
m1. BUS. HE, #2. #61: RD: HUE: RE: FL; ALI: HE: R 
Fs -#3C, #30. #54. #74. HELD. HAQ. #S4. #74, HEE: HA: HS6, #76: #7: #:Q 
#E4 ; #07: HAQ. # 


: HS: CF: HAD: H6Z. HERS: #7. #ZQ.- REZ. HES - #Le: #AR 
#4Z, RES. RG, HDQ. #4Z. HS. #DS, HA. H6Z. HRS. HOT. HZQ, Q, #24. #3 
HAL: #AF - HAS: #ZQ: HALDI- HAF - HAS: #2Q: HAL: #AF : #6. #20. #AL: #AF: #a6. «= :@ 
HAL: HAL: #74: #20: HAD: HAL: #74: HZO: F7: RAD: HED, #ZQ- F7: HAL: HELD. #20 
Q:hC-H#3C HAR. HE. H2Q. HZQ. HAE: HER3; HSQ. #2Q. D. #14: #30. #30 

MA: RES. #5 : #ZG. HAE, HES. #50. #2Q. HAR. HE3. HSQ. HZQ. HAE. #E3. HTQ. #7Q 
#DS: HES. #FS: #IA:HFE. #3S. #EE. #Z1.Q.H34, #3A.Z.HFE. HE: 1: RCE 
HAA- #35. GE, QG. H3Z-Q.#FE.R#7E: H3Z; 1:HFE-H#3E;: 2: #32: Q:HFE 

#23, H7C. HEA; CZ, RAA: #3S, #7 D: #EE: HZ: RAA: #3: DL: H#EL:#F 1: #07 


SPL V1.1 PAGE 1 


1 ; 

2 TITL ‘AENUM pour DAI V1.0 - 10/04/85" 
3 ’ 

4 ; Mode d'emploi 

5 ; CALLM #8000,A% 

6 $ avec A%=(PREMIERNO SHL 16)+INCREMENT 

7 L 

8 ORAG 08000H 

9 RENUM PUSH B 

10 PUSH D 

11 PUSH H 

12 PUSH PSW 

13 ; 

14 LDA 40H 

15 STA RESERV ; ROM BANK © 

16 PUT bd * 

17 MVI A 001100008 

18 PUT °h” 

19 CALL 00808H 

20 4 

21 MOV D,M 

22 INX H 

23 MOV E,N 

24 INX H 

25 XCHG 

26 SHLO FIRST ser nr de ligne 
27 XCHG 

28 MOV D,M 

29 INX H 

30 MOV E,M 

31 XCHG 

32 SHLO IN ; Increment 

33 CALL OD0SEH ; CA 

34 ; 

35 CALL REN1 ; RENUM nr .ligne 
36 CALL REN2 ; RENUM instr. BASIC 
37 o 

38 LDA RESERV ; Ancienne ROM 
39 CALL 00808H ; bank 

40 POP PSW 

a1 POP H 

42 POP D 

43 POP B 

44 RET 

45 ; 

46 3 RS REA AE AA DE AE DE AE AE QE AE DE DE LEE AE LE SE SEA De dé DE DE GE dE dE CLÉ RALSSRÉS SES SES S 
47? F 

48 ; RENUMEROTE LIGNES 

49 ; CREE LA TABLE DES CORRESPONDANCES 

50 ; 

51 REN1 LHLO 2A3H ; End of symbol table 
52 SHLO PTABLE 

53 LHLO FIRST 

54 MOV B,H 

55 MOV C,L ; ter nr dans BC 
56 LHLD 29FH 

57 XCHG 


58 LHLO 2A1H 
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SPL V1.1 PAGE 2 RAENUM pour DAI V1.0 - 10/04/85 
59 DCX H 

60 XCHG ; Fin pgm dans DE,debut dans HL 
61 ; 

62 RENO10 PUSH D 

63 XCHG 

64 LHLD PTABLE 

65 XCHG 

66 MOV A,M 

67? OCR A 

68 PUSH PSW 

69 INX H : Ecrit ancien 
70 MOV A,M 

TA STAX 0 ; numero de ligne 
72 INX D 

73 MOV M,8 ; & 

74 INX H 

73 MOV A,M ;j nouveau 

76 STAX 0 

77 INX D ; numero de ligne 
78 MOV M,C - 

79 MOV A,B 

80 STAX 0 

81 INX D 

82 MOV A,C 

83 STAX D 

84 INX 0 

85 XCHG 

86 SHLO PTABLE 

87 XCHG 

88 POP PSW 

89 s 

90 PUSH H 

91 NOV h,8 

92 MOV L,C 

93 XCHG 

94 LHLO IN 

95 DAD D ; BC=8C+( IN) 

96 MOV B,H 

97 MOV C,L 

98 POP H 

993 POP 0 

100 CALL O0E 30H 

101 CALL ODE 14H 

102 JC RENO19 

103 RET 

104 ; 

105 REN2 LHLO 29FH 

106 XCHG 

107 LHLO 2A1H 

108 OCX H ;Debut dans DE,fin dans HL 
109 F 

110 PUSH B Liste le programme 
111 MOV B,0 

112 MOV C,E 

113 SHLO 118H 

114 XCHG 

115 SHLD 119H 


116 RLS20 MOV H,8 
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117 MOV L,C 
118 CALL 
119 JZ 

120 CALL 
121 JMP 
122 RLSFIN ORA A 
123 POP B 
124 RET 
125 ; 

126 SLINE PUSH D 
127 PUSH H 
128 INX 8 
129 LOAX B 
130 STA 
131 INX B 
132 LOAX 8 
133 STA 
134 DCX B 
135 CALL 
136 MVI A 
137 CALL 
138 LOE262 CALL 
139 LDAX B 
140 ORA A 
141 JP 

142 CALL 
143 08 

144 JMP 
145 LOE263 CALL 
146 D8 

147 POP H 
148 POP 0 
149 RET 
150 ; 

151 STAT LDAX 8 
152 INX 8 
153 CPI 
154 JZ 

155 CPI 
156 J2Z 

157 CPI 
158 J2Z 

159 CPI 
160 JE 

161 CPI 
162 J2 

163 CPI 
164 J2Z 

165 CPI 
166 JZ 

167 CPI 
168 JZ 

169 CPI 
170 JZ 

171 STATO JMP 
172 î 

193 GOTO CALL 
174 JMP 


19 
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0DE 14H 
RLSFIN 
SLINE 
ALS20 


100H 


101H 


OEFAEH 
BH 
00B2AH 
STAT 


LOE263 
OEFFSH 
3AH 
LOE262 
OEFFSH 
00H 


89H 
GOTC 
BAH 
GOTO 
DABH 
IFTHEN 
0A7H 
IFGOTO 
94H 
GOTO 
95H 
LIST 
OAEH 
ONGOTO 
OAFH 
ONGOS 
OA6H 
IFSTAT 
OECCEH 


NLINE 
STATO 


:HL=DE ? --> FIN 


Liste une ligne 


; No de la ligne listee 


;Liste une instr. BASIC 
; Teste si 

;” GOTO 

; " GOSUB 

? IF...THEN nn 

* EF: - -GDTO nn 

s5* CTIST 1 LIGNE 

3" LIST nn-nn 

;" ON GOTO 

;" ON GOSUB 


;" IF...THEN <EXP> 


;Sinon --> suite 
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125 ; 

176 NLINE PUSH PSW 
177 LDAX 8 
178 INX 8 
179 MOV D,A 
180 LOAX 8 
181 MOV E,A 
182 CALL 
183 MOV A,E 
184 STAX B 
185 OCXx B 
186 MOV A,0 
187 STAX B 
188 POP PSW 
189 RET 

190 ; 

191 IFTHEN CALL 
192 CALL 
193 CALL 
194 Ow 

195 EFL CALL 
196 CALL 
197 RET 

198 ; 

199 IFGOTO CALL 
200 CALL 
201 CALL 
202 OWw 

203 JMP 

204 , 

205 IFSTAT CALL 
206 CALL 
207 CALL 
208 DW 

209 INX 8 
210 JMP 

211 ; 

212 PAIF LXI H 
213 CALL 
214 RET 

215 IF 08 

216 D8 

T7 ; 

218 LIST LXI H 
219 CALL 
220 CALL 
221 CALL 
222 CALL 
223 08 

224 CALL 
225 CALL 
226 RET 

227 SLIST DB 

228 D8 

229 ; 

230 ONGOTO LXI H 
231 CALL 
232 CALL 


RENUM pour DAI 


FIND 


PRAIF 

OEFFCH 
OCE78H 
OEE 15H 
NLINE 
OEFAEH 


PRIF 
OEFFCH 
OCE78H 
OCBF 9H 
IFL 


PAIF 
OEFFCH 
OCE?8H 
OEE15H 


STAT 


IF 
ODADA4H 


TE 
OH 


SLIST 
GDACAH 
NLINE 
OEFAEH 
OEFFSH 


NLINE 
OEFAEH 


‘LIST 
OH 


SON 
ODAD4H 
OEFFCH 


v1.0 - 10/04/85 


;Remplace l’ancien 

; Numero de ligne 

;Pointe par BC 

; Par celui correspondant 
;Dans la table. 


“opint IP 
;list exp. 
;list ‘THEN’ 


list nr ligne 


;list ’GOTO” 


;list ‘THEN’ 


;list instr. suivantes 


;effiche ‘’IF” 


sdist LIST” 


list nr ligne 
sprint ‘-"° 


;list 2nd nr ligne 


;slist ’ON’ 


;list exp 


RENUM pour DAI V1.0 - 


_jlist 


10/04/85 


*GOTO”’ 


;nombre de nr ligne 


sfini 7 si oui,--> FIN 


;print 


;print 
sprint 


sprint 
;suite 


” 
, 


’0ON” 


exp 


’GOSUB” 
-> ON.. 


Cherche le nr de ligne contenu dans DE. 


DE contient le nouveau numero. 
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233 CALL OCE78H 
234 Dw OC8F9H 
235 ONO0O LDAX 8 

236 INX 8 

237 PUSH PSW 

238 ON10 CALL NLINE 
239 CALL OEFAEH 
240 POP PSW 

241 OCR A 

242 JZ FON 
243 PUSH PSW 

244 CALL OCE 70H 
245 JMP ON10 
246 FON RET 

247 ; 

248 ONGOS LXI H SON 
249 CALL ODADAH 
250 CALL OEFFCH 
251 CALL OCE78H 
252 DWw OCCO 1H 
253 JMP ONOO 
254 ; 

255 SON D8 ‘ON ” 
256 08 OH : 
257 ; 

258 ; sortie 

259 ; Si erreur message - 
260 FIND MOV A,0 

261 ORA E 

262 AZ 

263 PUSH B 

264 PUSH 0 

265 MOV B,0 

266 MOV C,E 

267 LHLO PTABLE 
268 XCHG 

269 LHLD 2A3H 
270 FIND10 MOV A,8B 

vd PR CMP M 

272 INX H 

273 JNZ FIND20 
274 MOV A,C 

275 CMP M 

276 JZ OK 

Cr à] FIND20 INX H 

278 INX H 

279 INX H 

280 CALL 00E 14H 
281 JC FIND10 
282 : 

283 CALL O00SEH 
284 LXI H MESS 
285 CALL ODAD4H 
286 PUSH B 

287 LXI B 100H 
288 CALL OEFAEH 
289 POP B 

290 CALL ODDSEH 


DE contient tjs la meme chose. 


fini ? Si oui,erreur. 


; CA 


;message d’erreur 


;saffiche ligne listee 


; CA 


Pa | 
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291 CALL 
292 MVI A 
293 CALL 
294 POP D 
295 JMP 
296 MESS 08 
297 D8 
298 FFIND POP B 
299 RET 
300 OK INX H 
301 PCP 0 
302 MOV 0, 
303 INX H 
304 MOV E, 
305 JMP 
306 Hi 

307 RESERV NOP 
308 IN DS 
309 FIAST os 
310 PTABLE DS 

311 ; 

312 END 
RENUM :B000 REN'1 
SLINE :809F LOE262: 
NLINE :8102 IFTHEN: 
IF :8148 LIST 
FON :818C ONGOS 
MESS :81E4 FFINO 
PTABLE:8214 


, 
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O0D6DAH 

8H 

0D82AH ; TAB 8 

FFINO 

‘Branchement inexistant en ligne 

OH 
M 
L) 

FFIND 

2H ;increment 

2H ; ter No de ligne 

2H ;pointeur table 
8033 RENO10:8047 REN2 :807C 
8084 L0E263:80C3 STAT :B0OCA 
ane FL :8110 IFGOTO:B124 
B14C SLIST :8163 ONGOTO:8169 
8180 SON :819€ FIND :B1A2 
8205 OK :8207 RESERV:820F 


ALS20 :B08E 
STATO :80F9 
IFSTAT:8132 
ONCO :B177 
FIND10:8180 
IN :8210 


ce 


ALSFIN:809 
GOTO :B80F 
PAIF :814 
ON10 :8:17A 


FIND20:8188 
FIRST :8B212 


c3 


TRANS-MODE 


Cet utilitaire permet (comme son nom l'indique ...) de 
passer des images d'un Mode à un autre à résolution égale c'est à 
dire de recoder une image 16 couleurs en image 4 couleurs et 
inversement. 


A l'origine j'ai écris ce programme pour pouvoir superposer 
du texte sur des images en Mode 5 (NAVETTE entre autres) à l'aide 
du célèbre CHARACTER GENERATOR qui ne travaille qu'en Mode 6. 

Avant de me lancer j'avais essayé - sans conviction mais 
‘pour voir - de charger directement les images Mode S en Mode 6 
ce qui donnait la manip suivante (KENDOS) : 


LOAD CHARCEN.V1.0 


— Chargemsnt de C.G 
UT, RHEVELTICA.12 


— Chargement de la police de caractères 


— Chargement de l'image (Mode 5) B, MODE €A 
UT, RNAVETTEX 
puis lancement du programme : RUN 


Jusque là pas de problème mais dès que je commençais à 
entrer du texte j'obtenais des effets certe ‘intéressants’ mais 
pas du tout attendus! En effet l'image ‘vit’ très mal la 
différence de codage entre le fond et les caractères que l'on 
vient lui superposer (1). I1 faut se rendre à l'évidence, la 
routine du Read) ne se charge pas du recodage de la Vidéo-RAM 
quand ce serait nécessaire (il ne faut pas réver); pas plis qu'un 
FCKE #9D,#O0B (2) tenté sur une image Mode 5. 


11 fallut donc se résigner à faire le programme. 
Celui-ci est composé de 2 routines. Une qui réalise le 
passage Mode impair —} Mode pair et l'autre le passage inverse. 


La première ne pose pas de problèmes particuliers sinon que 
l'utilisateur ne doit conserver que 4 couleurs parmi celles qui 
composent l'image. Pour cela la routine recherche les couleurs 
utilisées et demande pour chacune d'elle le registre du COLORG à 
lui attribuer. Ensuite elle s'’enquiert des couleurs choisies pour 
le COLORG et effectue le décodage/recodage de la Vidéo-RAM. Seul 
point noir au tableau : le trop fameux Vidéo-BUG (3). En effet si 
certains codages de l’image tirent partie de cette anomalie la 
routire ne le détecte pas (encore) et risque de restituer une 
image déformée en certains points. Cela est surtout valable pour 
les Modes de basse résolution. 


ês 


La seconde routine pose plus de problèmes car paradoxalement 
il faut là aussi supprimer des couleurs alors que l'on passe d'un 
Mode qui en utilise 4 à un autre qui en autorise 16. Cela tient à 
la restriction adoptée par les concepteurs du codage des Modes 
impairs pour gagner de la place mémoire. Sur chaque ligne de 
l'écran les pixels sont regroupés par champs de 8. Si en Mode 
pair on a le droit à 4 couleurs maximum par champ, en Mode impair 
on ne peut plus en utiliser que 2. Comme il est totalement exclu 
de demander à l'utilisateur de préciser pour ES. 2 chacun des 
champs (plus de 10% en mode 5!) quelles 
couleurs il sélectionne (autant recoder 0111011:91010101110 
l'écran ‘à la main'!) il faut que ce soit le :9111000101910C0011 
programme qui choisisse. Il utilise pour cela 
des algorithmes qui essayent de faire au 
mieux pour tous les cas où l'on se retrouve 
avec 3 ou 4 couleurs cans un champ et la 
nécessité de n'en garder que 2. En essayant 
de conserver les couleurs les plus utilisées 
d'abord puis, s'il faut trancher, les plus 
‘groupées’ ou les mieux placées. 


Cette seconde routine est munie d'un 
filtre à Vidéo-EBUG (qu'il faut nettoyer après 


10 heures d'utilisation et) qui s'arrange Gi1111:010101110%00 
pour que les octets d'adresse haute de la Docusent exceptionnel: 

Vidéo-RAM soient au moins égaux à #80 (bit de un Vidéo-BUS photographié par 
poids fort à 1).(3) le professeur JANIN lors d'une 


récente expédition en Vidéo-RAM, 


Le résultat ...7 Variable d'une image à l’autre. 11 peut 
ètre nécessaire quelquefois d'effectuer quelques retouches à 
l'aide d'un utilitaire de dessin. 


Le programme Basic qui suit implante l'utilitaire de #5100 à 
#561F ce qui le préserve des zones utilisées par le KENDOS, mème 
en Mode Haute Résolution, et libère la partie basse de la 
mémoire. Four simplifier un peu la saisie il signale les erreurs 
commises en recopiant les lignes de DATA. 


(1) Se reporter pages 122 et 123 du manuel TCAI. 

(2) En #?9D on trouve un code désignant le Mode 
écran en vigueur (#0B pour Mode 64). 

(3) Voir DAIclic n°é et 10. 


REM 
REM . ! TRANS-MODE ! 
REM . fmmmensem—-mm—— ; 
REM . ! Prog. d'implantation ! 
REM . ! du LM de #5100 a #561F! 
REM Go Messe mssssmsssssss— ! 
ADR=#S100:CTR=O:REM . | 49707 ! 


FOR ADR=ADR TO ADR+9:REM -------- 
READ OCT:1IF OCT>#FF GOTO 400 
TOTLIG=TOTLIG+OCT:POKE ADR, OCT 

NEXT ADR - 

READ OCT:1IF OCT<>TOTLIG GOTO 500 
TOTLIG=0:CTR=CTR+10:GOTO 110 

IF OCT<>#AAA GOTO 510 

FOR ADR=ADR TO ADR+9:POKE ADR,O:NEXT ADR 

GOTO 110 

IF OCT=#FFFF THEN END 

CTR=CTR+1000 

PRINT "---> ERREUR de SAISIE en Ligne ";CTR 
PRINT :END 

DATA HFS,#ES,#DS,#CS,#21,H40,H55S,#AF,#6,#10,H#4AF 
DATA #5,#68,#77,#B8,#C2,#A,#51,#21,40,456,#330 
DATA H3A,H#9D,HO,#FE,#FF,HCA,HAF,#S4,#6F,H#3A,#S4A 
DATA #96,H#0,#47,H7E,#B7,#CA,#BO,#S2,#11,H0,#3BF 
DATA #55,#7D,HC6,#2,#32,#9D,#0,#D6,#1,HEF,#42F 
DATA #18,#3A,H98,H#0,#D6,#2,#F,#32,HFF,HSS,H#3S7 
DATA #21,HEF,#BF,#2B,H#2B,#3SA,HFF,#SS,#4F,#2B,#42D 
DATA #7E,H#EG,HF,#SF, HSE, #1,H12,H7E,H#F,HF, #2BF 
DATA #F,H#F,H#EG,#F,HSF,#SE,#1,#12,H2B,#D,H1FE 
DATA #C2,#45,H51,45,H#C2,H3F,H#S1,H#SE,#C, #CD, #3C6 
DATA #95,#D6,H21,40,H3,HEF,H9,HCD,#FF,#DA,#52D 
DATA #BC,#55,#21,#0,#55,#11,H#10,#56,#E,H#10,#21C 
DATA #7E,H#B7,HCA,#C2,H#51,HES,H#21,HA,#1,HEF,4512 
DATA H9,H#1A,#32,H8A,#51,HCD,#FF,HDA,#10,H55,#43B 
DATA #21,#12,H1,HEF,#9,#CD,#BB,#D6,#B7,#CA,#5SOB 
DATA #91,#51,HFE,#3O,#DA,H#91,#51,HFE,H#34,#D2,H#SDO 
DATA #91,H#51,#47,#CD,#95,HD6,#CD,#BB,#D6,HB7,#676 
DATA HCA,#AG,HS1,HFE,#9,HC2,#ER6,#51,4CD,#95,#SF4 
DATA #D6,#C3,H91,451,HFE,#D,#C2,H#AG,HS1,#78,#SR7 
DATA HD6,H#3O,#E1,#77,#2C,#1C,#D,#C2,H78,451,#43E 
DATA H3E,#C,#CD,4#95,#D6,#21,H#0,H2,HEF,H9,H#39D 
DATA #CD,#FF,HDA,#E7,455,#21,#1A,#2,HEF,49,4517 
DATA #EF,#C,H#SE,#20,HCD,HAO,HC6,H#4D,#6,#4,HSES 
DATA #16,H50,H#21,H9E,MO,#C,HEF,H1S,HFE, H3O,H363 
DATA HDA,#CB,#51,HFE,#3SA,#DA,#4,H#S2,HFE,#41,#59A 
DATA #DA,#CB,4S1,#FE,#47,H4D2,#C8,4#51,4D6,#7,H#600 
DATA #82,#77,H23,#3E,H10,482,457,#C,4S,#C2,#316 
DATA #EB,#S1,H21,H9E,#O,H#EF,#1B,#SA,496,#0,H3DS 
DATA #47,#TA,H9D,#O,#D6,#1,HEF,#18,#21,HEF,#40C 
DATA #EBF,#7E,#E6,H7F,477,HSA,HFF,#SS,N#4F,#2B,#521 
DATA #2B,#2B,#11,H0,H#55,4CS,#7E,#E6,#F,HSF,H#353 
DATA #1A,4#47,H7E,HF NF, HF, #F,HEG,#F, SF, #26F 
DATA #1A,H#4F,H#23,H11,H0,HO0,H#7E,HES,#26,H#B,H22E 
DATA #7,H#FS,#CS,HDA,#SE,#S2,#78,4F,447,N7B,#494 
DATA #17,45F,H78,4F,4#7A,#17,H57,HC3,H#69,H#52,#363 
DATA #79,HF,#4F,#7B,#17,4SF,#79,4F,H7A,N17,H2E1 
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#S7,#C1,HF1,#25,HC2,N4A,HS2,#E1,#72,H2B,HSOA 
#73,#C1,#D,#C2,42C,#S2,#2B,HS,HC2,H#23,#396 
#S2,#C3,HAF,#S4,#7D,HD6,#2,#32,H9D,NO,H#43C 
#D6,#1,NEF,#18,#3A,#98,HO,HD6,#2,HF, 397 
#32,4FF,4SS, #21,4EF,#BF,#7E,#F6,#80,#77,#SCO 
#2B,#2B,#3A,H#FF,#55,44F,#AF,#S6,#2B,HSE, HSC1 
#CS,HES,#E,#38,#21,#B7,H455,#77,#2D,HD,H3CE 
#C2,4AB,4S2,HhE,X#8,#6,H#0,H#7A,#F,#57,#2BB 
#78,#17,447,47B,H#F,H#SF,#76,#17,447,HC6,HSSE 
#7F,HSC,H6F,#34,HSE,HAF,#01,#6F,#70,HD,N#3EBS 
#C2,H#B3,#52,HE,#4,H2E,#84,HAF,4#47,#2D,H3SAE 
#BE,#CA,#DB,#52,#4,#D,HC2,HD5,#52,H3E,#4ED 
#2,H#B0,H4D2,H#2A,#5S4,HSE,NFF,H#32,HB8,H#55,#486 
#32,4B9,455,#6,#4,HE,#4,H16,HFF,H2E,#29F 
#64,#2D,h7E,#BA,#D2,HFD,#52,#57,45D,#D,#4CB 
#C2,4FS,4#S2,H#6B,#36,#FF,#7B,#D6,47F, #3D,#SB6 
#SF, HSE, 49F,#8O0,H6F,#73,HD6,#10,H6F,#72,#465 
#S,#C2,4H4EF,#52,#21,H#90,#55,#2C,#46,H2C, SAC 
H7E,#B8,#CA,#3O,#53,#21,H#A0,H55,#46,#2C,H#40B 
#7E,#21,HB8,#55,h70,#2C,#77,HCS,#CS,#53,H498 
#21,H90,H55,H7E,HFE,HS,H#DA,HB2,H53,HFE, #532 
#S,#D2,H21,H#53,46,H7,HSE,#AF,HC6,HB,H#313 
#6F,#56,#21,HA0,#55,#4E,#21,HB8,4#55,4H71,H#3C8 
HSE, #AF,#80,H#6F,#7E, #BA,#C2,#74,H#53,#B9,#556 
HC2,#7C,#S3,#S,HCA,#66,#S3S,#SE ,HAF , #80 ,#486 
#6F,HC3,#74,HS3S,HSE,#1,#B9,HC2,HGE,#53,#474 
#3E,#2,432,4#89,H55,HCS,#CS,#53,H#56,H5,H3B4 
#C2,H4E,#SS,#CS,#66,#SS,#32,H#B9,H55,HC3S,H4E2 
#CS,#53,#6,47,HSE,HAF,4C6,#B,#6F,#S6,HSAS 
#E,#2,HR3E,#AF,#B0,H6F,N#7E,HBA,#C2,HA6 ,#48C 
#SS,#SE,#B7,#81,H6F,#72,H#D,HCA,HCS,#53,#497 
#5S,#C2,#A6,#53,H#7A,#CS,#B7,H#SS,HSE, #AF,#4F4 
#6O,#6F,456,#5,#C2,4BC,#SS,#SA,#B9,455,H#433 
#FE,#FF,#CA,#21,453,#47,H3E,H1,HB8,#C2,#53B 
#CO,#53,43E,#2,#32,4B8,#55,H#6,H5,HSA,H2DA 
#B8,#55S,#4F,HSF,#SA,#B9,H#55,457,H2E,#B7,#43F 
#7E,#B9,4#CA,HEF,#S3,#BA,HCA,#F7,4#53,45,#616 
#2D,#CA,HES,#SS,HBE,#C2,H#DO,H#SS,HCS, #DA, #66F 
#S3,HE1,HC1,H3E,#40,#CD,#9S,HD6,#CS,HAF ,#61D 
#S4,478,HF,#D2,#FD,#SS,#CS,#FC, #53,#76,#587 
#F,#DA,#FD,H#S3,#SA,#6,#9,HSE,HAF, #60 ,H40E 
#6F,#7E, HB9,HCA,H#1E,454,#BA,#CA,#22,H54,#4DC 
#73,#2D,HBE,#C2,H#1A,H#54,#73,45,#C2,#D,#3SDS 
#S4,HC3,#47,#54,H7B,HCS,H#4,H54,#5SA,HCS,#465 
#23,454,H59,45,HC2,HFF,HSS,HCS,#47,H54,#447 
H3E,#AF,#C6,#8,#6F,4#56,#21,#BB,#55,#72,4420 
#6,#7,H3SE,H#AF,H#8O,#6F,#7E,HBA,HC2,#44,H#427 
#54,H45,HC2,H#36,454,H7A,H32,#B9,455,#6,4365 
#2,H3E,4B7,H#80,#6F,44E, #56, NC, HSE, H9D,#371 
#91,HES,H26,H0,H6F,H7E,#14,#D6,#10,H15,H388 
#C2,459,H54,#D6,H70,HE1,H2C,H2C,#77,#5,H46A 
HC2,H49,H54,H3A,HBA,HSS,H7,47,H7,47,#2C4 
#47,H3A,HBB,#SS,H8O,HE1,477,H#23,HES,421,#492 
#B8,45S,H4E,416,H0,46,H#B, HSE, MAAF, HBO, h2EC 
M6F,#7E,#B9,HCA,#GB,H54,H37,N#3F,N7A,#1F,#45SE 
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#57,45S,#C2,H81,454,HE1,472,N7,NDA,#A4,H4CB 
#54,47A,42F,477,#2B,N7E,47,47,N#7,47,#239 
#77,N23,H#2B,H2B,#C1,#D,#C2,#AO,4#52,H5, 4377 
#C2,H96,H52,HC1,4D1,HE1,HF1,HC9,4O,HO,HSD7 
HAAA , HAAA , HAAA, HAAA, HAAA 

HAAA,HAAA, HAAA, AAA 
H4E,#4F,#49,#52,H#20,#20,H0,H42,H#4C,H45,H24B 
#55,420,#20,#0,#50,#41,H52,H#4D,#45,#20,#22A 
#0,#52,H#4F,#55,#47,#45,420,H0,#4B,H41,#22E 
#4B,H#49,#20,H#20,H0,H#56,H45,H52,454,420,#235 
#20,#0,#47,H52,#45,H4E,#41,#54,40,H#56,H#237 
#49,H#4F,44C,H#45,454,H0,H47,H#52,H49,H#5S3,H2B2 
#20,H#20,H#0,H4D,#41,#52,#49,H4E,#45,4O,H1FC 
H4F,H#S2,#41,H4E,#47,H45S,HO,#S2,4#4F,#S3,#2BO 
#45,#20,#20,H0,#42,N#2E,H50,#41,H4C,#45,#217 
#O,HS6,H2E,#S0,H#41,H4C,#45,HO,#4A,H41,H231 
#S5,H#4E,#45,H20,40,#42,H4C,#41,H4E,#43,H268 
#20,H#0,#0,#0,#0,#0,H#0,#0,H0,HO,#20 

#AAA, HAAA , HAAA, HAAA, HAAA 
#0,H#0,H52,H45,#47,449,H53,N#54,#52,#45,H265 
#20,H#28,H#30,#61,H33,H29,#20,#41,H20,H41,H#1F7 
#54,#54,H52,#49,H42,H55,H45,#52,H20,#41,#2D2 
#20,#40C,#41,#20,#43,H4F,#55,#4C,#45,#55,429A 
#52,H#20,H3A,H20,H0,#43,#4F,#44,H45,#53,#23A 
#20,#28,#48,H#45,#58,#41,H29,#20,#44,#55,#250 
#20,H#43,#4F,H4C,H4F,#52,H#47,H#20,H0,#0,#206 
#1,#1,H#0,H#0,#1,#1,H#0,#0,H1,H#1,#6 
#O,HO,#FF,#FF,#FF,#FF,#10,H17,41E,H25,4466 
#2C, HIS ,H#3A,#41,H49,#H4F,#56,HSD,#64,H#6B,#2F3 
#72,H79,H0,H0,HO,HO,H#O,HO,#O,#O,HFFFF 


Ps 


EC RC RP ST 


…— xxx EXEMPLE SCROLL UPF/DOWN #44 


REM #*xk EXEMPLE SCROLL UP/DOWN #44 
CLEAR #3706 
COLORT 8 @ @ @ 
MODE @ 
COLORG 8 0 0 @ 
MODE 14 
FOR C=0.0 TO 15.0 
FRINT CHRS$(12)3;"ESSAYEZ AUTRES MODES" 
FRINT "DESSIN. ....ssesessse MODE 14" 
FOR X=0.@ TO XMAX/2.0 STEF 10.0 
FOR Y=YMAX/2.0 TO YMAX STEP 10.0 
DRAW X,Y XMAX-X,YMAX-Y C 
DRAW X,YMAX-Y XMAX-X,Y © 
DRAW XMAX-X,Y XAYMAX-Y © 
NEXT Y 
NEXT X 
DRAW @,@ XMAX,@ C 
DRAW G.@ @,YMAX C 
DRAW G.YMAX XMAX,YMAX C 
DRAW XMAX,@ XMAX,YMAX C 
PRINT CHR$(12):"ESSAYEZ AUTRES MODES" 
PRINT "SCROLL VERS LE RAS ! ! !" 
FOKE #F902,YMAX/3 
FOKE #F903,0 
CALLM #4000 
NEXT C 
END 


d3 


FLST V2.2 


SPL Vi1.1 PAGE 1 
0000 

2000 

4008 F=3 START 
4001 FS 
4002 ES 
4003 DS 
4004 CS 
4005 2117F9 
4008 :600 
400A ZE 
400H ZA9800 
4Q0E 77 
400F 1600 
4011 ©F 
4@17 2170r9 
4015 19 
4216 ZE 
4017 Z2214F9 
4014 ZA9D@0 
401D FEFF 
401F CAFS41 
4027 Eé6@1 
4024 C2A740 
4027 CD9841 NORM 
402A SAD:F9 
4@2D :C 
402E CA6&CA4Q 
4071 ZADEF7 DOWNN 
4834 D 
4035 :202F9 
4058 FEFF 
403A CAFS41 
483:D Z2ASAF9 
4040 EE 
4041 Z2AU5r9 
4044 @120F7 
40437 CDDE41 
4043A ZADAFF 
304D 44 
404E 4D 
404F Z2A03F9 
4052 23 
40SZ EH 
4054 Z2AD4F9 
4@57 CDCS41 
4054 ZADEF 7 
40SD 23 
40SE 44 
40SF  4D 
4060 1120F9 
4063 Z2A14F9 
4066 CDDEA41 
4069 C53140 
406C 3A02F9 UFN 
406F SD 
4070 3202F9 
4073 FEFF 
4075 CAFS41 


TITL 
ORG 

DI 

PUSH PSW 
PUSH H 
PUSH D 
PUSH B 
LXI H 
MVI M 
DCX H 
LDA 

MOV M,A 
MVI D 
MOV E,A 


SCROLL UF/DOWN MODES GRAFHIQUES 
4000H 


@F917H 
oH 


98H 
aH 


QF9:0H 


QF9714H 


OF90ZH 


UFN 
OF 02H 


@F722H 
OFFH 
EXIT 
OF SGAH 


GF 708H 
QF920H 
SCROL2? 
OF 70AH 


QFFQBH 


DF704H 
SCROL1 
@F306H 


oF920H 
@F914H 
SCROL2 
DOWNN 

oF902H 


@F902H 
QFFH 
EXIT 


23 


SPL V1.1 FAGE 2 
4078 2A06F9 
407B 23 
407C EB 
407D 2A0G4F9 
4080 @120F9 
4083: CDDB41 
4086 2A08F9 
4089 23 
408A 44 
408EH 4D 
408C ZAUAF9 
408F EH 
4090 ZAGEF9 
4093 CDDE41 
4096  ZAGAF9 
4079 44 
409  4D 
4097E ZAL14FY 
409E 11270F9 
40A1 CDDH41 
48A4 Cz6C40 
4047 CD9841 SFLI 
48AA ZA16F9 
40AD EB 
AQAE  Z2A8EQQ 
4GE1 Z22@CF9 
40E4 CDHA41 
407 ZZQEF9 
4GEA Z2A16F9 
40ED EX 
40BE 2A8E00 
4QC1 49700 
agc4 :D 
4@cs DS CONT 
48Cé 

4@C9 

4acA 

4Q0CE 

4QCE 

4001 

4aD4 

4aD7 

4aDA 

4@DR CATE41I 
aûDE ZAQ2FS DOWNS 
40E1 =D 
40E2 Z202F9 
40ES FEFF 
40E7 CAFSA41 
4QEA  ZABAF9 
40ED ER 
AQEE ZAU8F9 
40F1 @120F9 
40F4 CDDB41 
40F7 2AGAF9 
40FA 44 
40FR 4D 
40FC ZAO8SF9 


SCROLL UP/DOWN MODES GRAFHIQUES 


LHLD 
INX H 
XCHG 
LHLD 
LXI E 
CALL 
LHLD 
INX H 
MOV E,H 
MOV CL 
LHLD 
XCHG 
LHLD 
CALL 
LHLD 
MOV E,H 
MOV CL 
LHLD 
LXI D 
CALL 
JMF 
CALL 
LHLD 
XCHG 
LHLD 
SHLD 
CALL 
SHLD 
LHLD 
XCHG 
LHLD 


@F 906H 


@F904H 
@F920H 
SCROL2 
QF928H 


@F90AH 


oF906H 
SCROLZ 
@F90AH 


QF914H 
@F 92H 
SCROL2 
UFN 
CALC1 
oF9716H 


SEH 

OF9QaCH 
SOUSTR 
@FFQ0EH 
OF916H 


BSEH 
97H 


SOUSTR 


CONT 

QF910H 
SCUSTR 
QFS1CH 
@F7Q:H 


UFS 
OFSQ2H 


QFSQ@EH 
OFFH 
EXIT 
OF 7DAH 


@F708H 
oF9720H 
SCROL2 
OF90AH 


OF 28H 


So 


SPL Vi1.1 PAGE 3 
40FF 23 
4100 EB 
4101 2A04F9 
41@4 CDCS41 
4107 2A06F9 
410A 23 
410E 44 
41QC 4D 
41@D 24A12F9 
4110 23 
4111 EK 
4112 Z2A1@F9 
4115 CDDH41 
4118 24A12F9 
411EB 23 
411C 44 
411D 4D 
411E Z2A10F9 
4121 23 
4122 EB 
4123 Z2AQ@CF9 
4126 CDCS41 
4129 ZAGEF9 
412C 23 
412D 44 
412€ 4D 
412F ZA14F9 
41:72 11:0F9 
4155 CDDE41 
41:8 C3DE4Q 
41:58 3AGW2F9 UFS 
413E SD 
4135F 2:207F9 
4142 FEFF 
4144 CAFS41 
4147 Z2A0EFS 
4144 2Z 
414H EH 
414C ZAQCF9 
414F Wir? 
4152 CDDE41 
4155 Z2A10F9 
4158 23 
4159 

415A 

4158 

41SE 

415F 

416@ ZAGEF9 
4167 CDDE41 
4166 2A12F9 
4169 23 
416A 44 
416B 4D 
4168C ZAB6EF9 
416F 235 
4170 EB 
4171 2A04F9 


SCROLL UP/DOWN MODES GRAPHIQUES 


INX H 
XCHG 
LHLD 
CALL 
LHLD 
INX H 
MOV E.H 
MOV C,L 
LHLD 
INX H 
XCHG 
LHLD 
CALL 
LHLD 
INX H 
MOV EH 
MOV CL 
LHLD 
INX H 
XCHG 
LHLD 
CALL 
LHLD 
INX H 
MOV E,H 
MOV C,L 
LHLD 
LXI D 
CALL 
JMP 


INX H 
MOV B,H 
MOV C.L 
LHLD 
INX H 
XCHG 
LHLD 
CALL 
LHLD 
INX H 
MOV E,H 
MOV C,L 
LHLD 
INX H 
XCHG 
LHLD 


@F904H 
SCROL 1 
@F906H 


QF912H 


OF 710H 
SCROL2 
QF712H 


QF712H 


oF3@CH 
SCROL1 
OF30EH 


QF914H 
oF920H 
SCROL2 
DOWNS 

@F922H 


OF 922H 
GFFH 
EXIT 
QF9@EH 


@FS@CH 
QF970H 
SCROL2 
@GF710H 


@F912H 


OF9@EH 
SCROL2 
OF912H 


OF906H 


@F904H 
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SPL V1.1 PAGE 4 
4174 CDDEA41 
4177 2A06F9 
4174 23 
417B 44 
417C 4D 
417D 2AGAF9 
4180 EB 
4181 ZAGEF9 
4184 CDDE41 
4187 ZAGAF9 
4184 44 
418E 4D 
418C 2A14F9 
418F 1120F9 
4192 CDDE41 
4195 CZITE41 
4198 2A8700 CALCI 
419E 2204F9 
419€ EE 
419F ZA16F9 
41A2 EX 
41AZ CDEHA41 
416 2206F9 
4149 2A8800 
41AC 23 
41AD 2Z@AF9 
41#Q 

4181 EH 
41B2 ZAléF9 
41E5S 19 
416 2208F9 
4189 C9 
41EA F5 SOUSTR 
41BE 7A 
41H 2 

41EHD 7 
A41HE 7 
41EF 2 

4100 SF 
41C1 17 
4102 23 
4103 F1 
41C4 C9 
4105 DS SCRÜL1 
41Cé ES 
4107 7 
41C6 2F 
41C9 57 
41CA 7E 
41CEH 2 

41CC SF 
41CD 13 
A41CE 19 
41CF 7C 
41D@ E1 
41D1 Di 
41D2 3C 


41D3 


SCROLL UF/DOWN MODES GRAFHIQUES 


RET 
FUSH FSW 
MOV A.D 
CMA 
MOV D, 
mov A, 
CMA 
MOV € 
DAD D 
INX H 
FOF F 
RET 
FUSH D 
FUSH H 
mov A.D 
CMA 
MOV D, 
MOV A, 
CMA 
MOV E 
INX D 
DAD D 
MOV A,H 
FOF H 
POP D 
INR A 
RZ 


SCROL2 
Q@F 708H 


OF 9SAH 


QF986H 
SCROL2 
QF F0AH 


@F914H 
@F920H 
SCKROL2 
UFS 
R2H 
OF704H 


@F916H 
SOUSTR 
QF926H 
88H 


OF 7GAH 


@F916H 


@F7C8H 
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SPL V1.1 FAGE S SCROLL UF/DOWN MODES GRAFHIQUES 


41D4 14 LDAX D 
41D5 @2 STAX E 

41D6 13 INX D 

41D7 Q3 INX E 

41D8 C3CS41 JMP SCROL1 
41DB 7A SCROL2 MOV A,D 
41DC 2F CMA 

41DD 57 MOV D,A 
41DE 78 MOV A.E 
41DF 2 CMA 

41E0 5F MOV E,A 
41E1 13 INX D 

41E2 ES FUSH H 

41E3 19 DAD D 

41E4 09 DAD E 

41ES 44 MOV E.H 
41E6 4D MOV C.L 

41E7 El FOF H 

41E8 ES S1 FUSH H 

41E9 19 DAD D 

41EA 7C MOV A,H 
41EB Ei FOF H 

41EC 3C INR A 

41ED C8 RZ 

41EE 7E MOV A,M 
41EF OZ STAX E 

41F@ ZE DCX H 

41F1 GE DCX E 

41F2 C:E841 JMF s1 
41FS C1 EXIT FOF E 

41F6 Di FOF D 

41F7 Ei FOF H 

41F8 Fi FOF FSW 
41F9 FE EL 

41FA CY RET 

41FE END END 

START :400@ NORM :4027 DOWNN :4031 LFN :406C 
SFLI :40A7 CONT :44C5 


DOWNS :40DE UFS :413B CALC1 :4198 SOUSTR:41EA 


SCROL1:41CS SCRÜL2:41DE 
S1 :41E8 EXIT :41FS END :41FEH 


mm me ms ve 


— F9 PJ NN) NN NI NN — 


=: ##*+ LU DOLCE DI VUMANE #+s# = ÆLST V2,2 


REM ### LU DOLCE DI VUMANE #++ 


REN VAS SSSR UNSS NAN SANTA AUS 


REM --- by Di Marco Emmanuel --- 
REM 
PRINT CHRS#(12); 
CURSOR 5,18:PRINT “LU DOLCE DI VUMANE" 
CURSOR 4, L7tPRINT Menerssssmsemmenmense ” 
CURSOR 30,6:PRINT “by Di Marco E." 
CURSOR 0,1 
CLEAR 10000:READ N 
DIM AUN),BEN),CCND,FOUN) ,FI CN) ,F20(N) 
DIM TI(N) ,CHOUN) ,CHI(N) ,CH2(N),T2(N) 
SOUND OFF 
ENVELOPE 0 16 
FOR X=1.0 TO N 
READ AUXI,BUX) ,CUXI,FOCX) ,F1UX) ,F2UX 
READ T1(X),CHO(X) ,CH1(X) ,CH2(X),T2(X) 
NEXT X 
PRINT “* PRESSER SPACE "; 
G=GETC:IF G<)>32.0 THEN 174 
CURSOR O,CURY:PRINT " ";:CURSOR O0 ,CURY 
FOR X=1,0 TO 15.0 
IF A(X)=1,0 THEN SOUND 0 0 15 0 FREQ(FO(X)) 
IF B(X)=1.0 THEN SOUND 1 O 15 0 FREQ(F1(X)) 
IF C(X)=1.0 THEN SOUND 2 0 15 0 FREQ(F2(X)) 
WAIT TIME T1(X) 
IF CHO(X)=21.0 THEN SOUND O OFF 
IF CHi(X)=1.0 THEN SOUND 1 OFF 
IF CH2(X)=1.0 THEN SOUND 2 OFF 
MAIT TIME T2(X) 
NEXT X 
FOR Y=1,0 TO 3.0 
FOR X=16.0 TO 135.0 
IF A(X)=1.0 THEN SOUND 0 © 15 9 FREQ(FO(X)) 
IF B(X)=1.0 THEN SOUND 1 0 15 0 FREQ(FI(X)) 
IF C(X)=1.0 THEN SOUND 2 0 15 O FREQ(F2(X)) 
WAIT TIME TI(X) 
IF CHO(X)=1,0 THEN SOUND O0 OFF 
IF CH1(X)=1.0 THEN SOUND 1 OFF 
1F CH2(X)=1.0 THEN SOUND 2 OFF 
MAIT TIME T2(X) 


NEXT x 
NEXT Y 

END 

DATA 135 

DATA 1,1,1,440,349,349,9,1,0,1,0 
DATA 1,0,1,494,0,392,91,0,1,0 
DATA 1,0,1,440,0,349,9,1,0,1,0 
DATA 1,0,1,523,0,440,27,1,0,1,0 
DATA 1,1,1,523,262,440,9,1,0,1,0 
DATA 1,0,1,494,0,392,9,1,0,1,0 
DATA 1,0,1,440,0,349,9,1,0,1,0 
DATA 1,0,1,392,0,330,27,1,0,1,0 
DATA 1,1,1,349,392,294,9,1,0,1,0 
DATA 1,0,1,392,0,330,9,1,0,1,0 
DATA 1,0,1,349,0,294,9,1,0,1,0 
DATA 1,0,1,440,0,349,18,1,0,1,0 
DATA 1,0,1,392,0,349,9,1:0:1,0 
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##*#+ LU DOLCE DI VUMANE +++ 


,523,262,330,54,0,0,0,0 
,323,0,330,18,1,1,1,63 
1392,0:392:18,1,0,1,0 
,392,0,392,9,1,0,1,0 
,323,392,523,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
,440,0,440,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
,392,262,392,18,1,0,1,0 
,392,0,392,9,1,0,1,0 
,392,0,392,18,1,0,1,0 
,392,0,392,9,1,0,1,0 
,523,392,523,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
440,0,440,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
,392,262,392,18,1,0,1,0 
1392,0,392,9,1,0,1,0 
,330,0,330,18,1,0,1,0 
,330,0,330,9,1,0,1,0 
,392,392,392,18,1,0,1,0 
,330,0,330,9,1,0,1,0 
,294,0,294,18,1,0,1,0 
,330,0,330,9,1,0,1,0 
,262,262,262,18,1,0,1,0 
,262,0,262,9,1,0,1,0 
,330,0,330,18,1,0,1,0 
,330,0,330,9,1,0,1,0 
,392,392,392,18,1,0,1,0 
,330,0,330,9,1,0,1,0 
,294,0,294,18,1,0,1,0 
,330,0,330,9,1,0,1,0 
,262,262,262,27,1,0,1,0 
,262,0,262,27,0,0,0,0 
,262,0,262,54,0,0,0,0 
,262,0,262,18,1,1,1,63 
,392,0,392,18,1,0,1,0 
,392,0,392,9,1,0,1,0 
,523,392,523,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
1440,0:440:18,1,0,1,0 
,494,0,494,9,1,0,1,0 
,392,262,392,18,1,0,1,0 
,392,0,392,9:1:0,1,0 
1392,0,392,18,1,0,1,0 
,392,0,392,9,1:0,1,0 
523,392, 523,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
,440, 0:440,18,1,0,1,0 
,494,0,494,9,1,0,1,0 
1392,262, 392,18,1,0,1,0 
,392,0,392,9,1,0,1,0 
,330,0,330, 18,1,0,1,0 
,330,0,330,9,1,0,1,0 
294, 294,294:18,1,0,1,0 
,294,0,294,9,1,0,1,0 
1440, 0:440,18,1,0,1,0 
,440,0,440,9,1,0,1,0 
,392,392,392,18,1,0,1,0 


FLST V2.2 
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#*s+s LU DOLCE DI VUMANE ses 


1,392,0,392,9,1,0 
1,330,0,330,18,1, 
1,330,0,330,9,1,0 
1,294,294,294,18, 
1,294,0,294,9,1,0 
1,440,0,440,18,1,0 
1,440,0,440,9,1,0 
1,392,392,392,27, 
1,392,0,392,18,1, 
1,392,0,330,9,1,0,1, 
1,440,0,349,18,1,0,1, 
1,494,0,392,9,1,0,1,0 
1,523,0,440,18,1,0,1 
1,494,0,392,9,1,0,1,0 
1,440,262,349,27,1,0,1 
1,392,0,330,18,1,0,1,0 
1,392,0,330,9,1,0,1,0 
1,440,392,349,18,1,0,1,0 
1,494,0,392,9,1,0,1,0 
1,523,0,440,18,1,0,1,0 
1,494,0,392,9,1,0,1,0 

1 0 
1 1 
1 


,0 


,440,262,349,27,1,0,1,0 
,392,0,330,18,1,0,1,0 
,330,0,262,9,1,0,1 

L 

1 


,349,392,294,18,1,0,1,0 


L 
LL 
0 
4 
,349,0,294,9,1,0,1,0 
,392,0,330,18,1,0, 
,392,0,330,9,1,0,1 
,330,262,262,27,1, 
,392,0,330,18,1,0, 
,330,0,262,9,1,0,1 
,349,392,294,18,1,0,1,0 
,349,0,294,9,1,0,1,0 
,392,0,330,18,1,0,1,0 
,392,0,330,9,10,1,0 


L 
0 
’ 
1,0 
,0 
0,1,0 
1,0 
U 


, 
’ 
0 


1 

1 

1 

1 

1 

1 

1 

i 

1 

i 

1 

1 
1,392,0,330,9,1,0,1,0 
1,440,392,349,18,1,0,1,0 
1,494,0,392,9,1,0,1,0 
1,523,0,440,18,1,0,1,0 
1,494,0,392,9,1,0,1,0 
1,440,262,349,27,1,0,1,0 
1,392,0,330,18,1,9,1,0 
1,392,0,330,9,1,0,1,0 
1,440,392,349,18,1,0,1,0 
1,494,0,392,9,1,0,1,0 
1,523,0,440,18,1,0,1,0 
1,494,0,392,9,1,0,1,0 
1,440,262,349,27 
1,392,0,330,18,1 
1,330,0,262,9,1, 
1,349,392,294,18 
1,349,0,294,9,1 
1 
1 
1 
1 
1 
1 


' 
sl ' 
10, U 
0,1,0 
AS D | 
10,1,0 
1392,0,330,18,1, 
1392,0,330,9,1,0 
1330,262,262,27, 

U 


,392,0,330,18,1 
1330,0,262,9,1,0, 


L 
0 
' 
[l 
0 


,330,262,262,18,1,1,1,54 


FLST V2.2 
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ts #*## LU DOLCE DI VUMANE ### -—  FLST V2.2 


DATA 1,0,1,349,0,294,9,1,0,1,0 
DATA 1,0,1,392,0,330,18,1,0,1,0 
DATA 1,0,1,392,0,330,9,1,0,1,0 
DATA 1,1,1,330,262,262,54,1,1,1,63 


REENCREZ VOUS-MEME VOS RUBANS 


3 


11 faut vous munir de 2 objets : 


- une machine permettant l'entraînement du ruban à 
vitesse lente. J'utilise une perceuse dont la vitesse est 
réglable. Je serre dans le mandrin la molette d'entraînement 
du ruban. Mais un villebrequin ou une perceuse à main con- 
viennent également, seulememt il faut être deux. 


- de l'encre à tampon encreur, que vous trouverez 
dans les papeteries ou au rayon spécialisé des grands 
magasins. Prenez de préférence un contenant permettant un 
écoulement lent. 


Voilà, votre ruban se déroule devant vous, placez votre 
encrier au dessus de celui-ci et faîtes couler l'encre 
lentement, seulement au milieu du ruban. 


Pour environ 20F d'encre vous réencrez 6 ou 7 fois 
votre ruban. 


Faîtes-nous savoir si vous avez un procédé plus pra- 
tique ou plus économique. 
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PRINTUSING " masque ",expression 1,expression 2,...,expression n 


La syntaxe de cette instruction est identique à l'instruction PRINT 
excepté la première expression qui doit etre un string dans lequel 
on présente le masque d'édition des nombres. On peut également avoir 
une variable à la place du string. 

Les nombres à éditer sont de type integer sinon il y aura conversion. 
11 y a 3 signes particuliers pour un masque d'édition : # $ &. 


1. Edition de nombres. 


Tous les nombre sont cadrés sur la droite lors de l'édition. 

Si un nombre a plus de chiffres que le nombre de signes prévus dans 
le masque,il y a troncature à gauche. 

Si un nombre a moins de chiffres que le nombre de signes prévus 
dans le masque 


# remplace les chiffres absents par des blancs. 
$ remplace les chiffres absents par des zéros. 
& remplace les chiffres absents par des zéros. 


Pour le signe &, le nombre sera transformé en un nombre hexadécimal 
avant d'etre édité. 


On peut mélanger les signes # et $ mais en respectant l'ordre sui- 
vant ##4#$$ mais jamais SS### 


On peut placer des points et/ou des virgules dans un masque pour 
séparer, par exemple, les tranches de 3 chiffres. Un point ou une 
virgule ne sera pas imprimé si le nombre précédant le point ou la 
virgule est un nombre nul. 


2. Edition de strings. 


# cadre le string à droite avec des blancs à gauche si la lon- 
gueur du string est plus petite que le masque. Le string sera 
tronqué à gauche si la longueur du string est plus grande que 
le masque. 

$ cadre le string à gauche avec des blancs à droite si la lon- 
gueur du string est plus petite que le masque. Le string sera 
tronqué à droite si la longueur du string est plus grande que 
le masque. 

& cadre le string à droite avec des zeros à gauche si la lon- 
gueur du string est plus petite que le masque. Le string sera 
tronqué à gauche si la longueur du string est plus grande que 
le masque. 


3. Remarques. 


L'instruction peut se terminer par ; ou , ou rien, cela aura le 
meme effet que lors d'un PRINT. 

S'il y a plus d'expressions que de masques, cela génère une SYNTAX 
ERROR. 

S'il y a moins d'expressions que de masques, les masques superflus 
seront imprimés tels quels. 
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PRINTUSING VAR$S=" masque ",expression l,expression 2,...,expression n 


Plutot que d'éditer directement à l'écran, on peut placer le résultat 
de l'édition dans une variable string VAR$ pour une édition ultérieure 


BUTTON n,VARX 


Avec cette instruction, on peut interroger le clavier pour savoir si 
le clavier et les 2 paddles ont été utilisés et selon quelle combi- 
naison. 

La valeur n choisit ce que l'on doit savoir sur le clavier et les 
paddles, le résultat se trouve dans VAR%. 

Cette interrogation n'est pas mémorisée comme avec GETC. 


à = 0 5 55 


On peut interroger les 56 touches du clavier pour savoir si à cet 
instant on a utilisé cette touche. On peut aussi interroger REPT et 
CTRL ainsi que BREAK mais ce dernier provoque un arret du programme 
BASIC. 


Si on a appuyé sur la touche, VAR% contient 1 sinon O 
On trouvera en annexe dans le manuel allemand quelle valeur doit 
prendre n pour chacune des touches. 


n = 56 .. 59 
Permet de savoir si le paddle 1 ou 2 ou les deux ont provoqué un 
"event". 

n = 60 


Permet de savoir quel paddle 1 ou 2 est utilisé. 
VARY=56 si paddle 1. 
VAR%=57 si paddle 2. 


n = 61 


Permet de savoir la direction des touches curseurs. 

VARY* prendra les valeurs 0 à 8. 

VAR#=4 indique aucune direction. 

Si on appuye sur 2 touches contraire, le résultat est annulé. 


n = 62 .… 63 


Permet de savoir la direction des touches curseurs. 
62 haut et bas. 

63 droite et gauche 

Le résultat sera -1,0,1. 


n = 64 
Ici on analyse sur quelle touche on a appuyé (0 à 55). 


Si on appuye sur plusieurs touches en meme temps, on aura la valeur 
la plus grande. si on appuye sur aucune touche VARY=-1 


